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Abstract. During the last two decades, monads have become an indis- 
pensable tool for structuring functional programs with computational 
effects. In this setting, the mathematical notion of a monad is extended 
with operations that allow programmers to manipulate these effects. 
When several effects are involved, monad transformers can be used to 
build up the required monad one effect at a time. Although this seems to 
be modularity nirvana, there is a catch: in addition to the construction 
of a monad, the effect-manipulating operations need to be lifted to the 
resulting monad. The traditional approach for lifting operations is non- 
modular and ad-hoc. We solve this problem with a principled technique 
for lifting operations that makes monad transformers truly modular. 


1 Introduction 

Since monads were introduced by Moggi [13, 14] to model computational effects, 
they have proven to be extremely useful to structure functional programs [20, 19, 
9]. Monads are usually accompanied with operations that manipulate the effects 
they model. For example, an exception monad may come with operations for 
throwing an exception and for handling it, and a state monad may come with 
operations for reading and updating the state. Consequently, the structure one 
is really working with is a monad and a set of operations associated to it. 

In order to combine computational effects, one must combine monads. There 
are many ways of combining monads: distributive laws [2], coproduct of mon- 
ads [11], and monad transformers [10,15,3]. However, these technologies fall 
short in combining monads with operations, as they only provide means to com- 
bine monads. Liang et al. [10] identified this problem more than a decade ago 
and proposed a workaround, which is not modular. In fact, they have to lift 
operations associated to a monad through a monad transformer in an ad-hoc 
manner, and therefore the number of liftings of operation grows like the product 
of the number of monad transformers and operations involved (see Section 3.) 

More recently, Plotkin et al. [17, 7] have proposed to look at monads induced 
by algebraic theories, and to address the problem of combining monads (and 
associated operations) as a problem of combining algebraic theories. Their ap- 
proach works very smoothly, but can only deal with monads induced by algebraic 
theories (and lifting is limited to algebraic operations). 

Of all the techniques for combining monads, monad transformers are the 
most popular among functional programmers, as they are easy to implement 
and capture all the desired combinations for standard effects 1 . We show that for 

1 We take as standard the monads and operations described in [10]. 



monad transformers with a functorial behaviour there is a uniform definition of 
lifting for a class of operations, which includes (after some minor repackaging) 
all the operations described in [10]. The main contributions of this article are: 

— Identifying a class of operations associated to a monad, called algebraic S- 
operations, that are easy to lift along any monad morphism (Section 4). 

— Showing that all Af-operations for a monad can be lifted (through any func- 
torial monad transformer) by interpreting them as algebraic Af-operations 
for a related monad (Section 5) . 

— Comparing our uniform lifting to more ad-hoc liftings found in the literature 
or in Haskell’s libraries. This has revealed a mismatch with one definition in 
Haskell’s monad transformer library (as discussed in Section 4). 

Our approach extends both the traditional monad transformer approach [10] 
with the addition of uniform liftings, and the algebraic approach [7], since alge- 
braic operations are a special case of algebraic AA-operations. 

Remark 1. This article is aimed at researchers and programmers interested in 
using monads to structure functional programs with computational effects. For- 
mally we work with system Flo. In examples and remarks we may freely use 
extensions of Flo or idioms that are customary in functional languages. 

Much of the terminology we introduce is borrowed from Category Theory. 
Usually, there is not an exact correspondence between category-theoretic no- 
tions and their formalization in a calculus. For instance, monads expressible in 
the simple typed lambda calculus correspond to strong monads in a CCC [14]. 
In what follows, when we say monad we mean expressible monad in Flo (and 
similarly for other category-theoretic notions). 

2 Preliminaries 

We work with system Flo and its equational theory induced by /^-equiva- 
lence (for details, see [1,5]). One may replace Flo with a weaker system, like 
HML [6] (which distinguishes types from type schemas), or a stronger system, 
like CC [4], To fix the notation, we recall the syntax of Flo 

kinds k ::= * | k — > k 

type constrictors U ::= X \ U — > U \ MX : k. U \ AX : k. U \ U U 

terms e ::= x \ Xx: X. e \ AX :k. e \ eU 

We write ejj for e U (polymorphic instantiation) and we often write definitions 
gx(x : A) = t when we mean g = MX A x: A. t. We often write term application 

using a tuple, that is, we write t (z ±, ... , z n ) for t z\ ... z n . 

Following [18] we express in the setting of Flo several category-theoretic 
notions, such as functors, natural transformations, monads, monad transformers. 
Familiarity with these notions is not needed to understand the rest of the paper, 
but interested readers may want to look at [16, 3]. 



Definition 2 (Functor [18]). The set Functor of functors consists of pairs 
F = (F, map J ' ), where F: * — > * is a type constructor and 

map^: Map(F) = VX,Y:*. (X — > Y) — > FX — » FY 

is a term such that for all f: A^B and g: B^>C 

map AA id .4 = \d FA ( 1 ) 

ma PA,c (9-f) = mapg c g- map^ B / (2) 

where, id = AX : Ax: X. x and g ■ f is function composition Ax : A.g(f x). 

The composite functor F o G is the pair (F ■ G, map) where 

map a ,b = map£ A)GB (map^ B /). 

Definition 3 (Natural transformation). Given two functors F and G, the 

set Nat (F, G) of natural transformations from F to G consists of terms r: F A 
G = \/X : *. FX — > GX, such that for all f : A — > B 

map % B f ' T A = t b - map^ B f (3) 

The term t = A(M : * — ► *)(X : *). Am: MX. m is the identity natural trans- 
formation, (tot = AX: *. ax -tx is composition of natural transformations, and 
E(t : F A G) : X ■ F A X ■ G = AX : *. map BA - Gx (t.y) is the application of a 
functor X to a natural transformation r from F to G. 

Definition 4 (Monad). The set Monad of monads consists of triples AT = 
( M , ret M , bindj, where M : * — > * is a type constructor and 

ret M : Ret(M) = MX: *. X -> MX 
bind M : Bind(M) = VX, Y: *. MX -> (X -> MY) -» MY 
are terms such that for every a: A, f:A—> MB, m: MA and g: B — > AIC: 


bind A,B( ret A aj) 

= f a 

(4) 

bind A, A (m, ret^) 

= m 

(5) 

bind AtC (m,Aa:A. bind b,cU a,g)) 

= bin d^c(bind^ B (m, f),g) 

(6) 


Every monad M = (M, ret M , bind M ) has an underlying functor (M, map M ), 
denoted by M, where map A ^ B (/ : A — > B) ( m:MA ) = bind A ^ B (m, ret B • /). 

Example 5 (State Monad). The monad for modelling side-effects on a state of 
type S' is S = (S, ret s , bind s ), where S (X : *) = S— >X x S and 

ret A (a;: X) : SX = A s: S. (x, s) 

bind A r (m: S X, /: X— »S Y) : S Y = As: S. let (a, s') = m s in / as' 

Intuitively, a computation SX takes an initial state and produces a value of type 
X and a final state, ret^ does not change the state, and bind threads the state. 
A simple calculation shows that equations 4-6 hold. □ 



Example 6 (Continuation Monad). The monad for modelling continuations of 
result type R is C = (C, ret c , bind c ), where C (X : *) = (X—>R)—>R and 

ret^ (x : X) : CX = Xk : X — » R. kx 

bindy y (m: CX,/:X^CF): C Y = Xk:Y —>R. m(Xx:X. f xk) 

Intuitively, CX is a computation that given a continuation X — > R returns a 
result in R , ret c simply runs a continuation, and bind c (?n, /) runs m with a 
continuation constructed by running / in the current continuation. □ 

Definition 7 (Monad Morphism). Given two monads M and N, the set 
MM(M, N) of monad morphisms from M to N consists of terms £: M A N, 
such that for every a: A, m: MA and f:A—+ MB 

ret^a = ^(ret“a) (7) 

£s(bind A, B {m,f)) = bind^ B (^ m, ( B • /) (8) 

Remark 8. A simple consequence of equations 7-8 is that a monad morphism is 
also a natural transformation between the underlying functors. 

In order to combine effects, instead of writing a monad from scratch, one can 
add more effects to a pre-existing monad using monad transformers. 

Definition 9 (Monad Transformer). The set MT of monad transformers 
consists of tuples T = (T, ret T , bind T , lift T ), where T: (*—>*)—>(* — >*) and 


ret T 

VM:* - 

-> *. Ret(M) - 

-> Bind(M) - 

Ret(TM) 

bind 1 

VM : * - 

-> *. Ret (M) - 

-> Bind(M) - 

Bind (TM) 

lift T 

VM:* - 

-> *. Ret (M) - 

-> Bind(M) - 

VX : *. MX -> TMX 


are terms such that for every monad M, the tuple TM = ( TM , retC., bind^.) is 
a monad and lift^- is a monad morphism from M to TM , where 

retC. = ret|)-(ret M , bind M ), bind^ = bind ^(ret M , bind M ), 

lift* = lift M( retM ; bind M ). 


From now on we will drop type information of kind * from examples, in order 
to make them more readable. 

Example 10. The state monad transformer S = {S, ret 5 , bind 5 , lift 5 ) adds side- 
effects to an existing monad, where S (M :*—>*) (X : *) = S—>M(X x S) , and 

ret 5 ^(a ::X)\SMX = Xs. ret M (x, s) 

bind^(t:<SMX, /: X— ><SMF) : SMY = As. bind M (t s, X(x, s'), f x s’) 

lift 5 f (m: MX) : <SMX = As. bind M (m, Xx. ret M (x, s)) 

A simple calculation shows that equations 4-6 hold for SM and equations 7-8 

o ^ 

hold for lift*, whenever equations 4-6 hold for M. □ 



Example 11. The exception monad transformer X = ( X , ret* , bind'*, lift'*) adds 
exceptions to an existing monad, where X ( M : *— »*)(X: *) = M(Z + X) (here 
Z is the type of exceptions), and 

ret * J (x:X):XMX = ret M (inrx) 
bind % j (t:XMX,f:X^>XMY):XMY = 

bind M (f, Ac. case c of | ini z => ret M (inl z ) 

| inr x =$■ f x) 

lift* f (m: MX) : XMX = bind M (m, ret* f x) 

A simple calculation shows that equations 4-6 hold for XM and equations 7-8 
hold for lift* whenever equations 4-6 hold for M. □ 

3 Operations and lifting 

We seek a general technique for lifting operations associated to a monad M to 
another monad N. In this section we make precise what kind of operations our 
technique will be able to handle, and what lifting means. 

Definition 12 (A7-operation). If ZJ is a functor and M is a monad, then a 
Af-operation for M is a natural transformation op in Nat(A7 o M, M). 

Example 13. The standard operations for the state monad are 

get (k:S—+ SX) : SX = Xs.kss 
set (s : S,m : SX) : SA = A_. m s. 

The operation get applies the current state to its argument, and set sets runs 
a stateful computation in the provided state. They are A7-operations for the 
following functors 

T get X = S'— > AT map^ 8 " (f:X E get X ) : E get Y = As. / (f s) 

A set 1 = 5x1 map ^(f :X —> Y, (s, x) : E set X ) : X 5et Y = (s, / *). 

In Fig. 1, we show some Af-operations (all the monads and Af-operations are 
presented along the paper, except for the list monad and its operations for which 
the reader may consult [19]). Interestingly, all the operations considered in [10] 
for these monads are definable in terms of Af-operations. For example, we can 
use the Af-operations in Example 13 to define the more usual operations 

get: S S = get s (ret|) = As. (s, s) 

set : S— »S 1 = As. seti(s, ret^(*)) = As s'. (•, s) 

where • is the sole inhabitant of the unit type 1. In the same manner, we can 
define 

ask : RE = ask^ret 1 ^) = Ae. e 



Monad 

Signature 

A-operations 

List 

LA = [A] 

A e mptyx= l 
Aapp end x= A x A 

empty Y : 1 — > LA 
append x : LA x LA'— >LA 

Output 
OA = A x [A] 

A° ut PutXA [A] x A 
A flush A'= A 

output Y- : [A] x OA'^OA' 
flushx: OA — > OA 

State 

SA = S-> A x S 

A get A'= S^A 
A set A= S' x A 

get Y- : (S— »SA)— >SA 
set x : S x S A — > S A' 

Environment 
RA = E^X 

r ssk x= e^x 

A local A= (E^E)x X 

askx : (A— >RA)— >RA 
localx : (E—>E) x RA — > RA' 

Exception 
XA = Z + X 

^yuthrow^Y”— 

r handle x ^ Y x (Z ^ X) 

throwx : 1— >XA 

handlex : XA x (Z^XA)-yXA 

Continuation 
CA = (X^R)^R 

A abort A= R 
A ca " cc A'= (A— ».R)— >A 

abortx : R — ► CA 

callccx : ((CA— >7?) — > CA) — > CA 


Fig. 1. ^-operations for the standard monads. 


for the environment monad, and 

output: [A] — > 01 = A w. output 1 (w, ret°(*)) = Xw. (»,w) 

for the output monad. The usual call-with-current-continuation callcc and the 
A-operation callcc are defined as: 

callcc (/ : (A — > C Y) — > CA) : CX = A k. f ( Xx _. k x ) k 
callcc (/: (CA— >1?) — >CA) : CX = A k. f (Am. m k ) k 

The operation callcc can be defined from callcc as: 

callcc f = callcc (A k. f (Xx _. k (ret c a;))) (9) 


Definition 14 (Lifting). Let op be a E-operation for M and £ be a monad 
morphism from M to N. A lifting of op to N along f is a E-operation op N for 
N such that for all X 

fx-op x = op% • (mapf IX NX f x ) (10) 

or equivalently , such that the following diagram commutes: 


E(NX) - 

map S ?.Y 

E(MX) 


°Px 


°Px 


NX 

ix 

> MX 


This definition can be specialised to the case of a monad transformer T by taking 
N = TM and £ = lift . In this case we call op^ a lifting of op through T. 

In the absence of a general technique, the only way to lift an operation is 
to do it in an ad-hoc manner, for each monad transformer [10]. Although this 
works, the approach has significant shortcomings: 




— The number of liftings grows like the product of the number of operations 
and monad transformers. This is clearly non-modular: adding a new monad 
transformer with some operations involves showing how to lift every existing 
operation through the new monad transformer, and showing how to lift the 
new operations through every existing monad transformer. 

— Without a uniform definition of lifting, one could have different ad-hoc lift- 
ings of the same operation through a monad transformer, and no clear criteria 
to choose among them. 

— There is no division of concerns: defining a lifting involves understanding the 
intended semantics of both the transformer and the operation. 

We show that for well-behaved 17-operations, called algebraic, there is a unique 
way to lift them among a monad morphism. Moreover, for all A-operations (not 
necessarily algebraic) there is a uniform way to lift them through a wide class 
of monad transformers, called functorial monad transformers. 


4 Unique Lifting of Algebraic Operations 


We characterize operations that interact well with bind. 

Definition 15 (Algebraic i7-operation). A £ -operation op for M is alge- 
braic provided that for every f : A— > MB and t: £(MA) 

bmd^ B (op A f,/) = op B (ma pfj AMB ( Am :MA. bind^ B (m,/)) t) (11) 

or equivalently , that the following diagram commutes: 


£ (MA) ^ M A 


map 17 bind M (— ,/) | 

£ (MB) 


bind M ( — ,/) 


°P B 


> MB 


Remark 16. The notion of algebraic operation given in [17] corresponds to alge- 
braic A-operations for functors £ of the form £X = A x (B — > X). 

As examples of algebraic A7-operations we have all the operations in Fig.l, 
except for flush, local and handle, for which equation 11 does not hold. Remark- 
ably, callcc is an algebraic A7-operation despite not being algebraic in the sense 
of [17] and hence, not tractable in that approach. With our generalization, callcc 
is not only tractable, but also well-behaved. 

The following proposition presents a bijection between algebraic operations 
and natural transformations of a particular type. It provides an alternative way 
of verifying that an operation is algebraic and it will play a crucial role in showing 
how to lift algebraic operations. 



Proposition 17. There is a bijection between algebraic £ -operations for M and 
natural transformations from £ to M given by: 

<p(op'. £ ■ M A M) : (A A M ) = AX : *. op x • (map ^ Mx re ^x ) 

V>( op' : £ A M) : £ ■ M A M = AX : *. joinf • op' M x 

where join^ = A m: M(MX). b\nA I ^ [XX {m,\dMx)'-M{MX)^MX is the mul- 
tiplication of M. We call op' the natural transformation corresponding to the 
algebraic £-operation op. 

Remark 18. When £X = A x (B — > X) there is a further bijection between 
algebraic Af-operations op for M and maps op" : A — > MB , namely 

op" (a: A) = op B (a, ret^)- 


Theorem 19 (Algebraic Lifting). Given an algebraic £ -operation op for M 
and a monad morphism f from M to N, define the term op w : £ ■ N A N as 

°Px = j oin .Y • £nx ■ op NX ■ (mapf, X M(NX) ret% x ) 

op N is an algebraic £ -operation for N and a lifting of op along Moreover, 
op jV is the unique lifting of op which is algebraic. 

Proof. The operation op w is a lifting since the following diagram commutes: 

°p ” 

£{NX) >■ NX 



By Prop. 17, op N is algebraic and, by the same proposition, it must be the 
unique lifting of op which is algebraic. □ 

For example, when N = AS and £ = liftgd thus NX = S — > (( Z + X) x S), 
then the algebraic lifting of the algebraic A7-operation get yields the operation 

get£ (k : S ASA) : ASA = A s.kss. 

Since callcc is an algebraic A-operation, we can apply the algebraic lifting and 
obtain for every monad morphism f from C to N a lifted algebraic operation 



callcc^: VX : *. (( NX —> R) —> NX) — > NX. For example, for N = SC and 
£ = lift 5 , thus NX = S — > ((X x S) — > R) — > /?, then the operation simplifies 
to: 


callcc 5 (/ : (SCX —> R) —>SCX) : SCX = As k. f (A m. m ( s , k)) sk. 

We can define a lifted version of callcc in terms of callcc in the same manner 
as equation 9 and obtain: 

callcc 5 (/: (X^<SCF) — ><SCX) : SCX = As k. f (Xx s' k ( x , s)) s fc. 

The author has used the uniform lifting of callcc to verify the ad-hoc liftings 
of callcc in Haskell’s monad transformer library (mtl). This verification revealed 
that the uniform lifting above coincided with all of the library’s liftings, except 
for one: the library’s lifting of callcc through the state monad transformer is not 
consistent with the rest of the liftings. 2 The ad-hoc lifting of callcc in mtl is: 

callcc— mtl 5 (/: (X— ►SCF) — ><SCX) : SCX = As k. f (Xx s’ k (x, s')) s k. 

The difference is that the ad-hoc lifted operation preserves changes in the 
state produced during the construction of the new continuation even when the 
current continuation is used. However, all the other liftings of callcc in the library 
do not preserve produced effects when using the current continuation. 


5 Lifting of Operations 

We now show how to lift X-operations. To achieve this, we need to refine the 
definition of monad transformer. All the standard monad transformers fit into 
this refined definition, except the monad transformer for continuations. 

Definition 20 (Functorial Monad Transformer). The set FMT of func- 
torial monad transformers consists of tuples T = (T, ret T , bind T , lift T , hmap 2 ), 
where the first four components give a monad transformer (see Def. 9), and 

hmap T : MM, N : * -> *. Map (M) -> Map(X) -> (MAX) -► (TM A TN) 

is a term such that for all monads M, N and P, 

— hmap T preserves natural transformations and monad morphisms, i.e. 

• r:Nat(M,X) implies hmap^. ^ r : Nat(TM, TN) 

• (:MM (M,N) implies hmap^ ^(:MM(fM,TJV) 

— hmap T respects identities and composition of natural transformations, i.e. 

• hmap^^tM = l T m 

2 In another monad transformer library by Iavor S. Diatchki, called MonadLib, all the 
liftings correspond to the uniform lifting obtained above. 



• r : Nat(M, N) and a : Nat(iV, P) imply 

( hma P %,P a ) ° ( hma P T m,n t ) = hma P ti,p( a ° T ) 

— lift 1 is natural, i.e. 

t : Nat(M, N) implies (hmap^ x t) x • lift^ J X = • t x (12) 

where hmap^. ^ = hmap^ f Ar (map i ' / , map* ¥ ). 

Example 21. The monad transformer S becomes functorial with hmap 5 given 
by 

hmap* q{t : F A G)(X: *)(t:SFX) : SGX = As: S. r(ts) 

Some tedious calculations show that it satisfies all the required properties. □ 
Example 22. The monad transformer X becomes functorial with hmap A given 

by 

hmapf 6 (t:F A G)(X : *)(t : XFX) : XGX = r(t) 


□ 

In order to lift 27-operations we will exploit impredicative polymorphism of 
system Flo to define a monad transformer K (which is not functorial) such that 
every 27-operation op for M induces an algebraic 27-operation op^ for KM , and 
op can be recovered from op*" by pre- and post-composition of op^" with two nat- 
ural transformations. The unique algebraic lifting allows to lift op*~ through any 
monad transformer T, and obtain an algebraic 27-operation op for T(KM). 
Finally, when T is functorial, one recovers from op /c,T a lifting of op through T, 
in the same way as one recovers op from op K . 

Definition 23 (Codensity). 1C is the monad transformer (1C, ret*", bind*", lift^) 
such that for every monad M 

KMX = MY: *. (X -► MY) -► MY 
ret^ x (x : X) : KMX = AY : *. Ak : X -> MY. k x 
bindy f xy (c:KMXJ:X^KMY):KMY = 

AZ:*. Ak:Y^MZ. cz ( Ax:X . ( fx)zk ) 
Nf4 x (to : MX) : KMX = AY: *. Ak : X -► MY. binder (m, k) 

Remark 24- The monad transformer K is related to the construction of the con- 
density monad for an endofunctor (see [12]). In what follows, we use only some 
properties of K, which are provable by simple calculations in system Flo. Thus, 
we do not exploit in full the universal property of the codensity monad. 



Definition 25. Let M be a monad. Then, we define the terms 

k(t:E ■ M A M): E A KM = AX: *. As: EX. 

AY : *. \k: X — > MY. ry{ map 1 ' k s) 
from^ : KM A M = AX : *. Ac: KMX. cx (ret^f) 

and for every E -operation op for M we define 

op*' : E ■ KM A KM = if(n op) 
where if is defined in Prop. 17. 

Proposition 26. Given a monad M and a E-operation op for M , then 

a) from^ is a natural transformation from KM to M such that 

t M = from A ^ o lift^ 

b) op^ is an algebraic E -operation for KM such that 

op = from jgoop^o (X lift^) (13) 

where t and o are the identity and composition of natural transformations, and 
E is the application of a functor to a natural transformation (see Definition 3). 

Theorem 27 (Lifting). Given a E-operation op for a monad M and a func- 
torial monad transformer T, let op T : E ■ (TM) A TM be the term 

op T = (hmap^ ^from^) o op^’ T o (^(hmap^ ^lift^)) (14) 

where op K ,T is the algebraic lifting of op^ through T, then op T is a lifting of op 
through T. 

Proof. The following diagram commutes: 

T 

E(TMX) — >■ TMX 



□ 



When op is an algebraic ^-operation for M, there is a simpler way to lift op 
through T. The following result says that when both liftings are defined, they 
yield the same result. 

Proposition 28. If op is an algebraic £ -operation for M and T a functorial 
monad transformer, then the algebraic lifting of op along liftyy given by Theo- 
rem 19 coincides with the lifting of op 1 given by Theorem 27. 

Example 29. We specialize the lifting in Theorem 27 to several concrete functo- 
rial monad transformers and an arbitrary 17-operation op for a monad M. 

— When T = S, thus SMX = S —> M(XxS), the lifting simplifies to: 

op A (■ t : S{SMX)) : SMX = As. op A - xS (map' 1 ' rS t) 

where r s (/ : S — > M(X x S)) = f s. 

— When T = X , thus XMX = M(Z + X), the lifting simplifies to: 

op%(t: S(XMX)) : XMX = op z+A - 1. 

— When T is 1Z, the functorial monad transformer for environments of type 
E [10], thus 1ZMX = E — > MX, the lifting simplifies to: 

op A (t: EfJZMX)) : TZMX = Ae. op A -(map ,s r e t) 

where r e (/ : E — > MX) = f e. 

— When T is O, the functorial monad transformer for output of type [A] [10], 
thus OMX = M (X x [d.]), and the lifting simplifies to: 

op £(t: E(OMX)) : OMX = op Xx[A] t. 

□ 

The example above shows that Theorem 27 subsumes the incremental ap- 
proach in [15, 3]. In the following, we apply the lifting theorem to the remaining 
non-algebraic operations local, handle, and flush. Because of Proposition 28, for 
algebraic operations it makes more sense to use the simpler algebraic lifting. 

Example 30. The monad for environments of type E and its operations for read- 
ing the environment and performing a computation in a modified environment 
are shown below. 


R(X:*) = E-+X 
ret R (x : X) : RI = A_.a: 
bind R (m: R X, f : X— > R Y) : R Y = A e. / (m e) e 

ask (/ : E —> RX) : RX = Ae. fee 
local (f:E~^E,m: RX) : RX = Ae. m (/ e) 



Applying Theorem 27 to the non-algebraic, E-operation local we obtain the 
following lifted operation for any functorial monad transformer T: 

local T (/ : E^>E,t:TRX ) : TRX = hmap^ ^ from^ (local K '’ T (f, t')) 
where t' :T1CRX = hmap (, . R , lift^" t 

\oca\ K ’ T (f:E^E,t: TIC RX) : TK.RX = join^ (lift^ (AY. X k. local (/, k t ))) 

— When T = S, thus <SRA' = S' — > E — > (X x S), the lifting simplifies to: 

\oca\ S (f:E^E,t:SRX):SRX = X se.t s(fe). 

— When T = X, thus XRX = E —> (Z + X), the lifting simplifies to: 

local* (f:E^E,t: XRX): XRX = Xe.t(fe). 

— When T = H, thus 1ZRX = E — > E — > X , the lifting simplifies to: 

\oca\ n {f:E^E,t:HRX) : 1ZRX = Xe e’.t e (f e') 

— When T = O, thus OMX = E — > (X x [A]), the lifting simplifies to: 

local 0 (f:E->E,t:ORX):ORX = X e.t(fe) 

□ 

Note that we can arrive at the concrete liftings above — where both T and op 
are fixed-— by either Example 29 (where we first fix T) or the definition of local T 
above (where we first fix op), but only by fixing the monad transformer we get 
a significant simplification of the lifting. 

Example 31. The monad for exceptions of type Z and its operations for throwing 
and handling exceptions are shown below. 

X(A:*) = Z + X 
ret x (:r: AT): XX = inr a: 

bind x (m :XX, f : X — >XX) : XE = case m of \n\ z => \n\ z | in r x => f x 
throw (z: Z) : XX = ini z 

handle (m: XX, h: Z^XX) : XX = case to of | ini z => h z | inr x =>■ inr x 

We obtain the following liftings for the non-algebraic E-operation handle. 

— When T = S, thus SXX = S — » Z + (XxS), the lifting is: 

handle 5 (t: SXX, h: Z—+SXX) : SXX = As. case is of | ini z => hz s 

| \nrx => inra: 



— When T = X, thus XXX = Z + (Z + X), the lifting is: 

handle A (t: XXX , h: Z — > XXX) : XXX = case t of | ini z => hz 

| inrx => inrx. 

— When T = X, thus 7 ZXX = E — > (Z + X), the lifting is: 

handle^ (t: XXX, h: Z —>1ZXX) : 7 ZXX = Xe. case te of | ini z => h z e 

| inra: => in r cc 

— When T = O, thus OXX = Z + ( X x [A]), the lifting is: 

handle 0 (t: OXX, h : Z — > OXX) : OXX = case t of ini z => hz 

j inrx => inr.r. 

□ 

Example 32. The monad for output of a type [A] and its operations for out- 
putting a list, and flushing the output are shown below. 

0(I:*) = Ix[i] 
ret°(a::X): OX = (x, empty(*)) 
bind°(?n: OX, /: X— > 0 Y) : OX = let (x, w) = m in 

let (. x',w ') = f x in (x r , append(u;, w')) 

output ( (w, to) : W x OX) : OX = let ( x , w ' ) = to in (a:, append(w / , w)) 
flush (to: OX) : OX = let (x, _) = to. in (x, empty(*)) 

where empty(*) is the empty list, and append appends two lists. We obtain the 
following liftings for the non-algebraic X-operation flush. 

— When T = S, thus SOX = S — > ((X xS)x [A]), the lifting is: 

flush 5 (t : SOX) : SOX = As. let (x, _) = t s in (x, empty(*)) 

— When T = X, thus XOX = (Z, + X) x [A], the lifting is: 

flush A ((c, w) : XOX, h: Z—*X OX) : XOX = (c, empty(*)) 

— When T = It, thus 1Z OX = E —> (X x [A]), the lifting is: 

flush K (7: XOX) : XOX = Ae. let (x, Z) — te in (x, empty(*)) 

— When T = O, thus OOX = (X x [A]) x [A], the lifting is: 

flush 0 (( p , w) : OOX,h: Z-^OOX) : OOX = ( p , empty(*)) 

□ 



6 Conclusion 


Monad transformers allow programmers to modularly construct a monad, but 
for their potential to be fully realized, the lifting of operations should also be 
modular. We have defined a uniform lifting through any monad transformer 
with a functorial behaviour. This lifting is applicable to a wide class of operations 
which includes all operations considered in [10] and all the operations in Haskell’s 
mtl, except for listen. Through several examples, we have given evidence that our 
uniform lifting subsumes the more or less ad-hoc definitions of lifting that could 
be found in the literature. 

Our initial focus on algebraic operations is inspired by Plotkin et al. [7], 
where a monad is constructed from an algebraic theory presented by algebraic 
operations and equations, and combined monads are obtained by combination 
of theories. This approach is appealing, but it can cope only with monads cor- 
responding to algebraic theories and with algebraic operations. 

The current design of monad transformer libraries is based on the traditional 
approach to operation lifting which has other problems besides non-modularity. 
The experimental library Monatron [8] implements a new design which not only 
lifts operations uniformly, but also avoids many of these problems. 

There are several possible directions for further research: 

— The lifting of A-operations assumes functorial monad transformers. In order 
to accomodate the continuation monad transformer, we plan to extend the 
results in the article to mixed-variant functorial monad transformers. 

— Instead of assuming an operation S ■ M A M, we can consider operations 
HM A M, where H is a functor in an endofunctor category. This allows 
us to model the mtl operation listen and obtain a lifting for it. However, 
in general, obtaining a lifting seems to depend on the operation inducing 
an algebraic 17-operation for another monad. General techniques for finding 
such a lifting need to be investigated. 

— Given a A-operation for M, we can obtain its lifting through any functo- 
rial monad transformer. However, its general formulation is rather involved, 
and we would like to obtain a simpler lifting (perhaps under certain extra 
assumptions, as in Proposition 28). 

Since the traditional non-modular solution for lifting operations through 
monad transformers was introduced, there has been little progress in this area. 
We hope that the new approach developed in this article leads to new and ex- 
citing ways of designing structured effectful functional programs. 
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